home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
GEMFBIND
/
VLARCPIE.S
< prev
next >
Wrap
Text File
|
1993-03-16
|
1KB
|
47 lines
;*========================================================================
;* VDIFAST Public Domain VDI bindings.
;*========================================================================
;*------------------------------------------------------------------------
;* Eliptical arc and pie.
;*------------------------------------------------------------------------
globl _v_ellarc
_v_ellarc:
moveq.l #6,d1
bra.b ellarcpie
globl _v_ellpie
_v_ellpie:
moveq.l #7,d1
ellarcpie:
; .cargs #8,handle.w,x.w,y.w,xradius.w,yradius.w,begang.w,endang.w
handle = 8
x = 10
y = 12
xradius = 14
yradius = 16
begang = 18
endang = 20
link a6,#0
; VContrl #11,d1,#2,#2
move.w handle(a6),-(sp) ; contrl[6]
move.w d1,-(sp) ; contrl[5]
subq.l #2,sp ; contrl[4]
move.w #2,-(sp) ; contrl[3]
subq.l #2,sp ; contrl[2]
move.w #2,-(sp) ; contrl[1]
move.w #11,-(sp) ; contrl[0]
subq.l #8,sp ;* -> ptsout, intout
pea x(a6) ;* -> ptsin
pea begang(a6) ;* -> intin
pea 16(sp) ;* -> contrl
jmp vdicall
end